Imports Colegio
Imports System.Windows.Forms

Public Class FrmMain
    Private Sub ModificarAlumno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarAlumno.Click
        Dim Frm As New FrmBuscarAlumno
        abrirFormulario(Frm)
        operacion = OperacionForm.Modificar
    End Sub

    Private Sub BorrarAlumno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarAlumno.Click
        Dim Frm As New FrmBuscarAlumno
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub BuscarAlumno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarAlumno.Click
        Dim Frm As New FrmBuscarAlumno
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub ModificarPersonal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarPersonal.Click
        Dim Frm As New FrmBuscarPersonal
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub BorrarPersonal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarPersonal.Click
        Dim Frm As New FrmBuscarPersonal
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub BuscarPersonal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarPersonal.Click
        Dim Frm As New FrmBuscarPersonal
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub ModificarLicencias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarLicencias.Click
        Dim Frm As New FrmBuscarLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarLicencias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarLicencias.Click
        Dim Frm As New FrmBuscarLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
        Close()
    End Sub

    Private Sub ModificarAsignaturas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarAsignaturas.Click
        Dim Frm As New FrmAsignaturas
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarAsignatura_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarAsignatura.Click
        Dim Frm As New FrmAsignaturas
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarCursadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarCursadas.Click
        Dim Frm As New frmBuscarCursadas
        abrirFormulario(Frm)
    End Sub

    Private Sub BorrarCursadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarCursadas.Click
        Dim Frm As New frmBuscarCursadas
        abrirFormulario(Frm)
    End Sub

    Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cargarPantallaBienvenida()
    End Sub

    Private Sub cargarPantallaBienvenida()
        Dim fSplash As New PantallaBienvenida
        fSplash.Owner = Me
        fSplash.Show()
        Application.DoEvents()
        Threading.Thread.Sleep(1500)
        fSplash.Close()
        fSplash.Dispose()
    End Sub

    Private Sub CargarLicencias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarLicencias.Click
        Dim Frm As New FrmCargarLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarLicencias_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarLicencias.Click
        Dim Frm As New FrmModificarLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub BorrarLicencias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarLicencias.Click
        Dim Frm As New FrmModificarLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarAlumno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarAlumno.Click
        Dim Frm As New FrmCargarATV
        abrirFormulario(Frm)
        operacion = OperacionForm.Alta
    End Sub

    Private Sub CargarPersonal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarPersonal.Click
        Dim Frm As New FrmCargarPersonal
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarAsignatura_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarAsignatura.Click
        Dim Frm As New FrmAsignaturas
        operacion = 1
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarCursadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarCursadas.Click
        Dim Frm As New FrmCargarCursadas
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarLocalidad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarLocalidad.Click
        Dim Frm As New FrmLocalidades
        operacion = 1
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarLicencias_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarLicencias.Click
        Dim Frm As New FrmBuscarLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarAmonestaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarAmonestaciones.Click
        Dim Frm As New FrmCargarAmonestaciones
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarAmonestaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarAmonestaciones.Click
        Dim Frm As New FrmModificarAmonestaciones
        abrirFormulario(Frm)
    End Sub

    Private Sub BorrarAmonestaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarAmonestaciones.Click
        Dim Frm As New FrmModificarAmonestaciones
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarInasistencia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarInasistencia.Click
        Dim Frm As New FrmCargarInasistencia
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarInasistencias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarInasistencias.Click
        Dim Frm As New FrmModificarInasistencias
        abrirFormulario(Frm)
    End Sub

    Private Sub BorrarInasistencia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarInasistencia.Click
        Dim Frm As New FrmModificarInasistencias
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarNotas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarNotas.Click
        Dim Frm As New FrmCargarNotas
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarNota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarNota.Click
        Dim Frm As New FrmBuscarNota
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarNota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarNota.Click
        Dim Frm As New FrmBuscarNota
        abrirFormulario(Frm)
    End Sub

    Private Sub AltaCurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AltaCurso.Click
        Dim frm As New FrmCursos
        operacion = 1
        abrirFormulario(frm)
    End Sub

    Private Sub ModificarCurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarCurso.Click
        Dim frm As New FrmCursos
        operacion = 2
        abrirFormulario(frm)
    End Sub

    Private Sub BorrarCurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarCurso.Click
        Dim frm As New FrmCursos
        operacion = 2
        abrirFormulario(frm)
    End Sub

    Private Sub BuscarCurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarCurso.Click
        Dim frm As New FrmCursos
        operacion = 2
        abrirFormulario(frm)
    End Sub

    Private Sub AsignarAlumnos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AsignarAlumnos.Click
        Dim frm As New FrmCursos
        operacion = 3
        abrirFormulario(frm)
    End Sub

    Private Sub AsignarMaterias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AsignarMaterias.Click
        Dim frm As New FrmCursos
        operacion = 4
        abrirFormulario(frm)
    End Sub

    Private Sub ModificarLocalidades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarLocalidades.Click
        Dim Frm As New FrmLocalidades
        operacion = 3
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarLocalidades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarLocalidades.Click
        Dim Frm As New FrmLocalidades
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarPeriodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarPeriodoToolStripMenuItem.Click
        Dim Frm As New FrmCargarPeriododeLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarPeriodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarPeriodoToolStripMenuItem.Click
        Dim Frm As New FrmModificarPeriododeLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarPeriodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarPeriodoToolStripMenuItem.Click
        Dim Frm As New FrmBuscarPeriodosdeLicencia
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarPeriodoCargo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarPeriodoCargo.Click
        Dim Frm As New FrmPeriodoCargo
        operacion = 0
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarPeriodoCargo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarPeriodoCargo.Click
        Dim Frm As New FrmPeriodoCargo
        operacion = 1
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarPeriodoCargo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarPeriodoCargo.Click
        Dim Frm As New FrmPeriodoCargo
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarToolStripMenuItem.Click
        Dim Frm As New FrmCargarTutor
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarToolStripMenuItem.Click
        Dim Frm As New FrmBuscarTutor
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
        Dim Frm As New FrmBuscarTutor
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub BuscarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem.Click
        Dim Frm As New FrmBuscarTutor
        abrirFormulario(Frm)
        operacion = 1
    End Sub

    Private Sub ModificarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarToolStripMenuItem1.Click
        Dim Frm As New FrmModificarVinculo
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarVinculoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarVinculoToolStripMenuItem.Click
        Dim Frm As New FrmModificarVinculo
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarToolStripMenuItem1.Click
        Dim Frm As New FrmOrientacion
        operacion = 1
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarToolStripMenuItem2.Click
        Dim Frm As New FrmOrientacion
        operacion = 3
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem1.Click
        Dim Frm As New FrmOrientacion
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarCursada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarCursada.Click
        Dim Frm As New frmBuscarCursadas
        abrirFormulario(Frm)
    End Sub

    Private Sub CargarCargos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarCargos.Click
        Dim Frm As New FrmCargos
        operacion = 1
        abrirFormulario(Frm)
    End Sub

    Private Sub ModificarCargos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarCargos.Click
        Dim Frm As New FrmCargos
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarCargos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarCargos.Click
        Dim Frm As New FrmCargos
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarAmonestacionesToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarAmonestacionesToolStripMenuItem2.Click
        Dim Frm As New FrmModificarAmonestaciones
        abrirFormulario(Frm)
    End Sub

    Private Sub Boletin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boletin.Click
        Dim Frm As New FrmGeneraBoletin
        operacion = 1
        abrirFormulario(Frm)
    End Sub

    Private Sub AlumnosPorCurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlumnosPorCurso.Click
        operacion = 8
        Dim Frm As New FrmConsultas
        abrirFormulario(Frm)
    End Sub

    Private Sub PlantaFuncional_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlantaFuncional.Click
        operacion = 9
        Dim Frm As New Reportes.FrmReportes(3)
        abrirFormulario(Frm)
    End Sub

    Private Sub TutoresPorAlumno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TutoresPorAlumno.Click
        operacion = 10
        Dim Frm As New FrmConsultas
        abrirFormulario(Frm)
    End Sub

    Private Sub Alumno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Alumno.Click
        operacion = 11
        Dim Frm As New FrmConsultas
        abrirFormulario(Frm)
    End Sub

    Private Sub BuscarInasistenciasToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarInasistenciasToolStripMenuItem2.Click
        Dim Frm As New FrmModificarInasistencias
        abrirFormulario(Frm)
    End Sub

    Private Sub NotasPorCursoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotasPorCursoToolStripMenuItem.Click
        operacion = 12
        Dim Frm As New FrmConsultas
        abrirFormulario(Frm)
    End Sub

    Private Sub BorrarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem1.Click
        Dim Frm As New FrmAsignaturas
        operacion = 2
        abrirFormulario(Frm)
    End Sub

    Private Sub Reportes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reportes.Click

    End Sub
End Class